home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / memory.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  3KB  |  122 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16.  
  17. #define    CLASS    Memory_c
  18. #define    ivType    Memory_iv_t
  19.  
  20. #include "generics.h"
  21.  
  22. object    Memory_c;
  23.  
  24.  
  25. #line 26 "memory.c"
  26. typedef struct  _Memory_iv_t  {
  27.     unsigned iSize;
  28.     void * iPtr;
  29. }    Memory_iv_t;
  30.  
  31.  
  32. #line 21 "memory.d"
  33. #include <string.h> 
  34.  
  35. cmeth objrtn Memory_cm_gNewWithInt(object self, int size)
  36. { 
  37.     object obj = oSuper(Memory_c, gNew, self)(self); 
  38.     accessIVsOf(obj); 
  39.     iv->iSize = (unsigned) size; 
  40.     iv->iPtr = calloc(iv->iSize ? iv->iSize : 1, sizeof(char)); 
  41.     if (!iv->iPtr) 
  42.         gError(Dynace, "Dynace: out of memory."); 
  43.     return obj; 
  44. } 
  45.  
  46. imeth objrtn Memory_im_gDispose(object self)
  47. { Memory_iv_t *iv = GetIVs(Memory, self);
  48.     if (iv->iPtr) 
  49.         free(iv->iPtr); 
  50.     return oSuper(Memory_c, gDispose, self)(self); 
  51. } 
  52.  
  53. imeth void * Memory_im_gPointerValue(object self)
  54. { Memory_iv_t *iv = GetIVs(Memory, self);
  55.     return iv->iPtr; 
  56. } 
  57.  
  58. imeth int Memory_im_gSize(object self)
  59. { Memory_iv_t *iv = GetIVs(Memory, self);
  60.     return iv->iSize; 
  61. } 
  62.  
  63. imeth objrtn Memory_im_gResize(object self, int size)
  64. { Memory_iv_t *iv = GetIVs(Memory, self);
  65.     iv->iSize = (unsigned) size; 
  66.     iv->iPtr = realloc(iv->iPtr, iv->iSize ? iv->iSize : 1); 
  67.     if (!iv->iPtr) 
  68.         gError(Dynace, "Dynace: out of memory."); 
  69.     return self; 
  70. } 
  71.  
  72. imeth objrtn Memory_im_gDeepCopy(object self)
  73. { Memory_iv_t *iv = GetIVs(Memory, self);
  74.     object cpy = gNewWithInt(CLASS, (int) iv->iSize); 
  75.     ivType *iv2 = ivPtr(cpy); 
  76.     memcpy(iv2->iPtr, iv->iPtr, iv->iSize); 
  77.     return cpy; 
  78. } 
  79.  
  80.  
  81. #line 82 "memory.c"
  82.  
  83. objrtn    Memory_initialize(void)
  84. {
  85.     static  CRITICALSECTION  cs;
  86.     static  int volatile once = 0;
  87.  
  88.     ENTERCRITICALSECTION(_CI_CS_);
  89.     if (!once) {
  90.         INITIALIZECRITICALSECTION(cs);
  91.         once = 1;
  92.     }
  93.     LEAVECRITICALSECTION(_CI_CS_);
  94.  
  95.     ENTERCRITICALSECTION(cs);
  96.  
  97.     if (Memory_c) {
  98.         LEAVECRITICALSECTION(cs);
  99.         return Memory_c;
  100.     }
  101.     INHIBIT_THREADER;
  102.     Memory_c = gNewClass(Class, "Memory", sizeof(Memory_iv_t), 0, END);
  103.     cMethodFor(Memory, gNewWithInt, Memory_cm_gNewWithInt);
  104.     iMethodFor(Memory, gPointerValue, Memory_im_gPointerValue);
  105.     iMethodFor(Memory, gSize, Memory_im_gSize);
  106.     iMethodFor(Memory, gDispose, Memory_im_gDispose);
  107.     iMethodFor(Memory, gGCDispose, Memory_im_gDispose);
  108.     iMethodFor(Memory, gCopy, Memory_im_gDeepCopy);
  109.     iMethodFor(Memory, gDeepDispose, Memory_im_gDispose);
  110.     iMethodFor(Memory, gResize, Memory_im_gResize);
  111.     iMethodFor(Memory, gDeepCopy, Memory_im_gDeepCopy);
  112.  
  113.     ENABLE_THREADER;
  114.  
  115.     LEAVECRITICALSECTION(cs);
  116.  
  117.     return Memory_c;
  118. }
  119.  
  120.  
  121.  
  122.